home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / cuj9303.zip / 1103088A < prev    next >
Text File  |  1993-06-21  |  644b  |  21 lines

  1.      #define NUMVAL(x)    (x - '0')  
  2.      #define TONUM(x)    NUMVAL(x)  
  3.      #define TODIGIT(x)    (x + '0')  
  4.      static char trconst[] = {'3', '7', '1', '3', 
  5.                '7', '1', '3', '7'};     
  6.      char calc_check_digit (char * trnum)      
  7.           {
  8.           int sum, val;      
  9.           int i;         
  10.           for ( sum = i = 0 ; i < 8 ; i++)          
  11.                {
  12.                sum += TONUM (trnum[i]) * TONUM (trconst[i]);
  13.                }
  14.           val = 10 - (sum % 10);      
  15.           if (val == 10)          
  16.                val = 0;  
  17.           return (TODIGIT (val));      
  18.           }
  19.  
  20.  
  21.